(reposition-window): Don't forward-char if eobp.

diff --git a/lisp/reposition.el b/lisp/reposition.el
index d981eefec5e9d10778090dad2e24d93dae103d39..0dda524f079c9d5d99f3867f9a398177d02d55af 100644 (file)
--- a/lisp/reposition.el
+++ b/lisp/reposition.el
@@ -70,7 +70,8 @@ first comment line visible (if point is in a comment)."
               (repos-count-screen-lines-signed
                ;; the beginning of the preceding comment
                (save-excursion
-                 (forward-char 1) (end-of-defun -1) 
+                 (if (not (eobp)) (forward-char 1))
+                 (end-of-defun -1) 
                  ;; Skip whitespace, newlines, and form feeds.
                  (re-search-forward "[^\\s \n\014]")
                  (backward-char 1)